home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 137 / Tiger_Disk_137_20xx_Tiger-Crew-Disk_de_Side_B.d64 / speed-reader _td (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  3KB  |  73 lines
  1. 10 print"[147]"
  2. 20 poke53280,5:poke53281,15
  3. 30 print""
  4. 40 cl=55776 : rem start of screen color memory
  5. 50 dd=50:nc=5 : rem variables for delay         & number of displayed character
  6. 60 print"[147]" : rem clear screen
  7. 70 printtab(14) "speed reader"
  8. 80 print"
  9. 90 [153]"   f - schneller"
  10. 100 [153]"   s - langsamer"
  11. 110 [153]"   > - mehr zeichen    je zeile"
  12. 120 [153]"   < - weniger zeichen je zeile"
  13. 130 [153]"   q - programm beenden"
  14. 140 [153]"   programmstart mit space!":[153]
  15. 150 s[178][194](197):[139]s[179][177]60[175]s[179][177]62[167]150
  16. 160 [139]s[178]62[167]690
  17. 170 [151]788,52 : [143] disable stop key
  18. 180 [153]"list"
  19. 190 [135]a$
  20. 200 [139]a$[178]"eod"[167]690
  21. 210 [153]"load"a$
  22. 220 [129]l[178]0[164]39
  23. 230 [151]cl[170]l,0: [143] poke contrasting              color for each letter in line
  24. 240 [139]l[171]nc[177][178]0[167][151]cl[170]l[171]nc,15:[143] poke                back to background color
  25. 250 [129]d[178]0[164]dd:[130]d
  26. 260 [130]l
  27. 270 s[178][194](197) : [143] scan keyboard for                   keypress
  28. 280 [139]s[178]21[167]dd[178]dd[171]10: [143] decrease                     delay - read faster
  29. 290 [139]s[178]13[167]dd[178]dd[170]10: [143] increase                     delay - read slower
  30. 300 [139]s[178]44[167]nc[178]nc[170]2 : [139] nc [177] 11 [167]                         nc [178] nc [171] 2
  31. 310 [143] line 320 increases the number of characters displayed at one time
  32. 320 [139]s[178]47[167]nc[178]nc[171]2 : [139] nc [179] 3 [167]                          nc [178] nc [170] 2
  33. 330 [143] line 340 decreases the number of characters displayed at one time
  34. 340 [139]s[178]62[167]690 : [143] end the program
  35. 350 [137] 190
  36. 360 [143] ** try this sample data - then substitute your own selection  **
  37. 370 [131] "  dies ist ein beispiel-text fuer      "
  38. 380 [131] "dieses lese-trainings-programm.        "
  39. 390 [131] "du kannst jeden beliebigen text in die "
  40. 400 [131] "data-zeilen (ab programm-zeile 370)    "
  41. 410 [131] "eintragen, der dann zeilenweise von    "
  42. 420 [131] "links nach rechts dargestellt wird.    "
  43. 430 [131] "dabei kannst du das tempo der darstel- "
  44. 440 [131] "lung deinen faehigkeiten anpassen:     "
  45. 450 [131] "du kannst die geschwindigkeit bis auf  "
  46. 460 [131] "das dreifache erhoehen, indem du die   "
  47. 470 [131] "taste <f> drueckst. aber du kannst auch"
  48. 480 [131] "die geschwindigkeit verlangsamen, indem"
  49. 490 [131] "du die taste <s> drueckst.             "
  50. 500 [131] "sollen pro zeile mehr zeichen gezeigt  "
  51. 510 [131] "werden, druecke die > - taste.         "
  52. 520 [131] "die < -taste zeigt weiniger zeichen pro"
  53. 530 [131] "zeile.     wenn du aufhoeren moechtest,"
  54. 540 [131] "so druecke die taste <q>."
  55. 550 [131] "dies war die anleitung zu diesem lese- "
  56. 560 [131] "trainings-programm.   es folgt nun noch"
  57. 570 [131] "der originale, englische text, der den "
  58. 580 [131] "zweck dieses programms erklaert.       "
  59. 590 [131] "viel spass mit diesem programm!  - tc -"
  60. 600 [131] "  this program duplicates some of the"
  61. 610 [131] "same techniques used in regular speed"
  62. 620 [131] "reading classes.  because we are trying"
  63. 630 [131] "to correct eye movement habits, we will"
  64. 640 [131] "have to devote some amount of practice"
  65. 650 [131] "to correcting our bad habits, but the"
  66. 660 [131] "reading experts see no reason why we"
  67. 670 [131] "cannot make ourselves better and faster"
  68. 680 [131] "readers if we work toward that goal."
  69. 690 [151]198,0:[151]788,49 : [143] enable                              the stop key
  70. 700 [153] "load"
  71. 710 [153]"":[128]
  72. 720 [131] "eod"
  73.